home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t5.d64 / sin disk copy.c (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  3KB  |  103 lines
  1. 90 POKE53281,0:POKE53280,11
  2. 100 REM 1 SIN+--SINGLE DRIVE COPY
  3. 105 REM RICK YOUNIE
  4. 110 POKE56,30:CLR
  5. 111 PRINT"[147][159]    [193][160][196][201][210][197][195][212][207][210][217][160][211][197][204][197][195][212][160][195][207][208][217][160][208][210][207][199][210][193][205][146]
  6. 112 [153]" 1541-LOAD AND RUN C-64 WEDGE FIRST"
  7. 113 [153]" 2031-RELOCATE C-LINK TO $C000 & CHANGE       LINE 130 TO TM=12*4096-1
  8. 115 GOSUB59000
  9. 120 PRINTTAB(5)"INSERT SOURCE DISK AND RETURN"
  10. 121 GETA$:IFA$<>CHR$(13)THEN121
  11. 124 PRINT"[147] SELECT PROGS (Y/N) * TO BEGIN TRANSFER"
  12. 125 MAX=20:DIMNA$(MAX),TY$(MAX),BL(MAX),     EOF(MAX):WASTE=933:Z$=CHR$(0)
  13. 130 TM=12*4096+12*256-1:REM $CBFF WITH C64WEDGE
  14. 135 BC=INT(TM/256-PEEK(56)-1)
  15. 140 OPEN15,8,15,"I0"
  16. 145 OPEN2,8,2,"$0"
  17. 150 INPUT#15,E0$,E1$,E2$,E3$
  18. 155 IFE0$<>"00"THENPRINTCHR$(5)E0$" "E1$" "E2$" "E3$:END
  19. 160 POKE781,254:SYSWASTE
  20. 165 N=1
  21. 170 J=1
  22. 175 GET#2,TY$
  23. 180 IFTY$=CHR$(129)THENTY$="S":GOTO200
  24. 185 IFTY$=CHR$(130)THENTY$="P":GOTO200
  25. 190 IFTY$=CHR$(131)THENTY$="U":GOTO200
  26. 195 POKE781,28:SYSWASTE:GOTO280
  27. 200 GET#2,A$,A$
  28. 205 NA$=""
  29. 210 FORI=5TO20:GET#2,A$:IFA$<>CHR$(160)THENNA$=NA$+A$
  30. 215 NEXT
  31. 220 FORI=21TO29:GET#2,A$:NEXT
  32. 225 GET#2,BL$:BL=ASC(BL$+Z$)
  33. 230 PRINTTAB(4)NA$TAB(21)TY$TAB(23)BL
  34. 235 GETA$:IFA$=""THEN235
  35. 240 IFA$="N"THENPRINT"[145]                             "CHR$(141)"[145][145]":GOTO280
  36. 245 IFA$="*"THENPRINTTAB(4)"[145]-------LOADING C64-------":GOTO300
  37. 250 IFA$<>"Y"THEN235
  38. 255 IFBL>BCTHENPRINT"[145] NO MORE ROOM--* TO LOAD C64":FORW=1TO500:NEXT:A$="N":GOTO240
  39. 260 PRINT"[145]"TAB(30)BC-BL
  40. 265 BC=BC-BL
  41. 270 NA$(N)=NA$:TY$(N)=TY$:BL(N)=BL:N=N+1
  42. 275 IFN>MAXTHENPRINT"     MAX NO. PROGS        = "MAX:GOTO300
  43. 280 GET#2,A$:IFSTTHEN295
  44. 285 J=J+1:IFJ<9THENGET#2,A$,A$:GOTO175
  45. 290 GOTO170
  46. 295 PRINTTAB(6)"NO MORE PROGRAMS--LOADING C64"
  47. 300 CLOSE2
  48. 305 N=N-1:IFN=0THENPRINTTAB(24)"[145]NONE SELECTED":END
  49. 310 :
  50. 315 :
  51. 320 XSAV=781:YSAV=782:GIT=828:PIT=876:          SUP=869
  52. 325 XFR=PEEK(56)*256+PEEK(55)
  53. 330 :
  54. 335 I=1
  55. 340 OPEN2,8,2,NA$(I)+","+TY$(I)+",R"
  56. 345 PRINT" "NA$(I)TAB(18)TY$(I)
  57. 350 INPUT#15,E0$,E1$:IFE0$<>"00"THENPRINTTAB(20)"[145]"E1$:BL(I)=0:GOTO380
  58. 355 HI=INT(XFR/256):LO=XFR-HI*256:           POKEYSAV,HI:POKEXSAV,LO:SYSGIT
  59. 360 INPUT#15,E0$,E1$:IFE0$<>"00"THENPRINTTAB(20)"[145]"E1$:BL(I)=0:GOTO380
  60. 365 EOF(I)=PEEK(XSAV)+PEEK(YSAV)*256
  61. 370 XFR=EOF(I)+1
  62. 375 PRINT"[145]                             "CHR$(141)"[145][145]"
  63. 380 CLOSE2
  64. 385 I=I+1:IFI<=NTHEN340
  65. 390 CLOSE15
  66. 395 :
  67. 400 POKE198,0:PRINT"[145]INSERT DESTINATION DISK & RETURN
  68. 405 [161]A$:[139]A$[179][177][199](13)[167]405
  69. 410 XFR[178][194](56)[172]256[170][194](55)
  70. 415 :
  71. 420 [159]15,8,15,"I0"
  72. 425 [132]15,E0$,E1$
  73. 430 [139]E0$[178]"00"[167]445
  74. 435 [153]" DISK PROBLEM-FIX AND TYPE CONT<RET>":[160]15:[144]:[137]420
  75. 440 :
  76. 445 [129]I[178]1[164]N
  77. 450 [139]BL(I)[178]0[167]495
  78. 455 [159]2,8,1,NA$(I)[170]","[170]TY$(I)[170]",W"
  79. 460 [132]15,E0$,E1$
  80. 465 [153]" "NA$(I)[163]18)TY$(I)" "E1$
  81. 470 [139]E0$[179][177]"00"[167]490
  82. 475 HI[178][181](XFR[173]256):LO[178]XFR[171]HI[172]256:[151]YSAV,HI:[151]XSAV,LO:[158]SUP
  83. 480 XFR[178]EOF(I)[170]1:HI[178][181](XFR[173]256):LO[178]XFR[171]HI[172]256:[151]YSAV,HI:[151]XSAV,LO:[158]PIT
  84. 485 [132]15,E0$,E1$:[139]E0$[179][177]"00"[167][153][163]5)"FATAL ERROR "E0$" "E1$:I[178]N
  85. 490 [160]2
  86. 495 [130]
  87. 500 [160]15
  88. 505 [153]"POKE56,160 :REM IF FINISHED"
  89. 510 [153]"GOTO400    :REM TO SAVE PROGS TO                        ANOTHER DISK
  90. 515 END
  91. 59000 FORI=828TO1000
  92. 59010 READ A:IFA<0THEN RETURN
  93. 59020 POKEI,A
  94. 59030 NEXT
  95. 60000 DATA 142,75,3,140,76,3,162,2,32,198,255,32,228,255,141,77,47
  96. 60001 DATA 166,144,208,10,238,75,3,208,241,238,76,3,208,236,32,204,255
  97. 60002 DATA 174,75,3,172,76,3,96,142,124,3,140,125,3,96,142,154,3
  98. 60003 DATA 140,147,3,169,54,133,1,162,2,32,201,255,173,78,47,32,210
  99. 60004 DATA 255,24,173,124,3,105,1,141,124,3,173,125,3,105,0,141,125
  100. 60005 DATA 3,201,47,208,229,173,124,3,201,78,208,222,32,204,255,169,55
  101. 60006 DATA 133,1,96,142,174,3
  102. 60007 DATA162,2,32,198,255,162,1,32,228,255,202,208,250,32,204,255,96,-1
  103.